@primes=(2,3);
$i = 5;
while (10001>scalar @primes) {
    $is_a_prime=1;
    for ($j=0 ; ($j<scalar @primes) & ($primes[$j]**2)<=$i ; $j++) {
        if ($i % $primes[$j]==0) {
            $is_a_prime=0;
            $j=scalar @primes; # Shortcut to exit loop
        }
    }
    if ($is_a_prime) {
        push @primes,$i;
    }
    $i++;
}
print "$primes[-1]\n";